#lang racket


(provide (struct-out session)
         make-session
         add-session)


(struct session (shapes))

(define (make-session shapes)
  (session shapes))

(define (add-session session shape)
  (make-session (cons shape (session-shapes session))))